home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / opal / adprorexxwind.lzh / F5.ADPro < prev    next >
Text File  |  1993-02-13  |  759b  |  24 lines
  1. /* ADPro ARexx script to save pic into temp without having to reset the
  2.  * save format everytime.
  3.  *** Brian Wind, February 12, 1993 ***
  4.  * Install in your REXX: directory along with the other ADPro rexx function
  5.  * key scripts.  Currently set for F4 key however, you can change the name
  6.  * to F1.ADPro through F9.ADPro depending on what you need. */
  7.  
  8. OPTIONS RESULTS
  9. ADDRESS "ADPro"   /* Gotta use ADPro */
  10.  
  11. /* ADPRO_TO_FRONT */  /* Just in case you run this from cli or elsewhere */
  12.  
  13. SFORMAT                        /* Get current save format */
  14. currentsformat=ADPRO_RESULT    /* store it */
  15.  
  16. SFORMAT "TEMP"            /* set to Temp save format */
  17.  
  18. /* Save 24 bit pic to Temp */
  19.  
  20. SAVE "XXX"
  21.  
  22. SFORMAT currentsformat /* reset save format to last used */
  23.  
  24. Exit